function [ ] = PrintVRMLColorful( filename, data, class, guess_inClass )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

numPoints = size(data,1);
label = data(:,5);
pts = data(:,1:3);

correct_inClass = (label == class*guess_inClass);
false_inClass = guess_inClass - correct_inClass;

false_outClass = (label == class*~guess_inClass);
correct_outClass = ~guess_inClass - false_outClass;


% Generate the labeling for correctly and incorrectly labeled points
colors = ones(numPoints, 3);

r = find(correct_inClass);
colors(r,:) = repmat([0 0 0], length(r), 1);

r = find(false_inClass);
colors(r,:) = repmat([255 165 0]/255, length(r), 1);

r = find(false_outClass);
colors(r,:) = repmat([1 0 0], length(r), 1);

r = find(correct_outClass);
colors(r,:) = repmat([0 1 0], length(r), 1);

showPointCloudWithVrml(filename, [pts colors]);

end